/*  Copyright © 2009 Blake Hegerle -*- C++ -*- */

/*  This file is part of metal.
 
    Metal is free software: you can redistribute it and/or modify it
    under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.
    
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program.  If not, see
    <http://www.gnu.org/licenses/>.

*/

#include "io.h"
#include "metal.h"

#include <iostream>
#include <cassert>

using namespace metal;
using namespace metal::driver;
using namespace std;

namespace {
  ident(n);
  ident(fact);
  ident(g);
}

void factorial_tests() {
  cout << "factorial_tests" << endl;

  mod(fact_mod, 

      fact = recdef<int>(param(int, n)) ( cond(n < 1, 1, n * fact(n - 1)) ) 
      
      );
  
  cout << "10! = " << link(fact_mod).call(fact)(10) << endl;
}
